﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% Option Explicit %>
<!--#include file="../inc/Const.asp" -->
<!--#include file="../inc/ConnSiteData.asp" -->
<!--#include file="CheckAdmin.asp"-->

<%
dim Result,Selectid
Result=request.QueryString("Result")
SelectID=request.Form("SelectID")
select case Result
  case "Administrators"
    if SelectID<>"" then  conn.execute "delete from Martech_Admin where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Flash"
    if SelectID<>"" then  conn.execute "delete from Martech_Flash where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
	case "LoginLog"
    if SelectID<>"" then  conn.execute "delete from Martech_AdminLog where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "About"
    if SelectID<>"" then  conn.execute "delete from Martech_About where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Products"
    if SelectID<>"" then  conn.execute "delete from Martech_Product where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "News"
    if SelectID<>"" then  conn.execute "delete from Martech_News where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "Navigation"
    if SelectID<>"" then  conn.execute "delete from Martech_Navigation where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "FriendLink"
    if SelectID<>"" then  conn.execute "delete from Martech_FriendLink where id in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")
  case "NoHackSql"
    if SelectID<>"" then  conn.execute "delete from Martech_NoHackSql where SqlIn_ID in ("&SelectID&")"
    response.redirect request.servervariables("http_referer")	
  case else	
end select
%>